home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / oasisegs.lha / egs / hanoi.pl < prev    next >
Text File  |  1992-03-25  |  175b  |  10 lines
  1. /* Prolog version of hanoi benchmark */
  2.  
  3. main :- han(20,1,2,3).
  4.  
  5. han(N,_,_,_) :- N=<0.
  6. han(N,A,B,C) :- N>0,
  7.         N1 is N - 1,
  8.         han(N1,A,C,B),
  9.         han(N1,C,B,A).
  10.